TimeToString Subroutine

private subroutine TimeToString(string, time)

Uses

Converts the value of the current DateTime object to its equivalent string representation

Arguments

Type IntentOptional Attributes Name
character(len=timeStringLength), intent(out) :: string
type(DateTime), intent(in) :: time

Source Code

SUBROUTINE  TimeToString &
!
(string, time)

USE StringManipulation, ONLY: &
! Imported routines:
ToString

IMPLICIT NONE

! Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time

! Arguments with intent(out):
CHARACTER(LEN = timeStringLength), INTENT(OUT) :: string
!------------end of declaration------------------------------------------------
string = TRIM ( ToString ( time % year, fmt = '(I4.4)' ) )   // '-' // &
         TRIM ( ToString ( time % month, fmt = '(I2.2)' ) )  // '-' // &
         TRIM ( ToString ( time % day, fmt = '(I2.2)' ) )    // 'T' // &
         TRIM ( ToString ( time % hour, fmt = '(I2.2)' ) )   // ':' // &
         TRIM ( ToString ( time % minute, fmt = '(I2.2)' ) ) // ':' // &
         TRIM ( ToString ( time % second, fmt = '(I2.2)' ) ) //        &
         time % TZsign                                       //        &
         TRIM ( ToString ( time % TZhour, fmt = '(I2.2)' ) ) // ':' // &
         TRIM ( ToString ( time % TZminute, fmt = '(I2.2)' ) )
END SUBROUTINE TimeToString